home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Schatztruhe / Lotto / InstallLotto next >
Text File  |  1995-11-29  |  15KB  |  258 lines
  1. (complete 0)
  2.  
  3. (set harddisk 0)
  4.  
  5. (if
  6.    (askbool
  7.       (prompt "Wo möchten Sie das Programm Lotto installieren?")
  8.       (help @askbool-help)
  9.       (choices "Auf Festplatte" "Auf Diskette")
  10.    )
  11.    (
  12.    ; hard drive part
  13.       (set harddisk 1)
  14.       (set @default-dest
  15.          (askdir
  16.             (prompt "Bitte wählen Sie das Verzeichnis, in dem "
  17.                     "Lotto installiert werden soll\n"
  18.             )
  19.             (help
  20.                     "Sie müssen für die Installation das Verzeichnis "
  21.                     "festlegen, in dem das Programm "
  22.                     "Lotto installiert wird\n\n"
  23.                     "Auf dem ausgewählten Laufwerk muß ausreichend "
  24.                     "Speicherplatz zur Verfügung stehen, d.h. ca. 140 KByte.\n\n"
  25.             )
  26.             (default "SYS:Lotto")
  27.          )
  28.       )
  29.  
  30.       (if
  31.          (= (exists @default-dest) 0) (makedir @default-dest)
  32.       )
  33.  
  34.    )
  35. )
  36.  
  37. (set @default-fontdir
  38.    (askdir
  39.       (prompt "Bitte wählen Sie das Verzeichnis, in dem "
  40.               "die Zeichensätze installiert werden sollen\n"
  41.       )
  42.       (help
  43.               "Sie müssen für die Installation das Verzeichnis "
  44.               "festlegen, in dem das Programm Lotto "
  45.               "später seine Zeichensätze finden kann.\n\n"
  46.       )
  47.       (default "FONTS:")
  48.    )
  49. )
  50.  
  51. (if
  52.    (= (exists @default-fontdir) 0) (makedir @default-fontdir)
  53. )
  54.  
  55. (onerror
  56. )
  57.  
  58. (if (= harddisk 1)
  59.   (
  60.    (set sourcefile ":Schatztruhe/Lotto/Lotto_V2.3")
  61.  
  62.       (if
  63.            (= (exists sourcefile) 0)
  64.                 (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
  65.       )
  66.  
  67.       (copyfiles
  68.          (prompt "" )
  69.          (help "")
  70.          (source sourcefile)
  71.          (dest @default-dest))
  72.  
  73.    (complete 30)
  74.  
  75.    (set sourcefile ":Schatztruhe/Lotto/Lotto_V2.3.info")
  76.  
  77.       (if
  78.            (= (exists sourcefile) 0)
  79.                 (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
  80.       )
  81.  
  82.       (copyfiles
  83.          (prompt "" )
  84.          (help "")
  85.          (source sourcefile)
  86.          (dest @default-dest))
  87.  
  88.    (complete 35)
  89.  
  90.    (set sourcefile ":Schatztruhe/Lotto/Lotto_V23.data")
  91.  
  92.       (if
  93.            (= (exists sourcefile) 0)
  94.                 (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
  95.       )
  96.  
  97.       (copyfiles
  98.          (prompt "" )
  99.          (help "")
  100.          (source sourcefile)
  101.          (dest @default-dest))
  102.  
  103.    (complete 40)
  104.  
  105.       (set steuerfontdir (tackon @default-dest "Mittwoch"))
  106.         (if
  107.            (= (exists steuerfontdir) 0)
  108.            (makedir steuerfontdir)
  109.         )
  110.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/01") (dest steuerfontdir))
  111.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/02") (dest steuerfontdir))
  112.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/03") (dest steuerfontdir))
  113.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/04") (dest steuerfontdir))
  114.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/05") (dest steuerfontdir))
  115.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/06") (dest steuerfontdir))
  116.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/07") (dest steuerfontdir))
  117.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/08") (dest steuerfontdir))
  118.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/09") (dest steuerfontdir))
  119.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/10") (dest steuerfontdir))
  120.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/11") (dest steuerfontdir))
  121.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/12") (dest steuerfontdir))
  122.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/13") (dest steuerfontdir))
  123.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/14") (dest steuerfontdir))
  124.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/15") (dest steuerfontdir))
  125.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/16") (dest steuerfontdir))
  126.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/17") (dest steuerfontdir))
  127.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/18") (dest steuerfontdir))
  128.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/19") (dest steuerfontdir))
  129.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/20") (dest steuerfontdir))
  130.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/21") (dest steuerfontdir))
  131.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/22") (dest steuerfontdir))
  132.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/23") (dest steuerfontdir))
  133.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/24") (dest steuerfontdir))
  134.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/25") (dest steuerfontdir))
  135.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/26") (dest steuerfontdir))
  136.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/27") (dest steuerfontdir))
  137.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/28") (dest steuerfontdir))
  138.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/29") (dest steuerfontdir))
  139.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/30") (dest steuerfontdir))
  140.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/31") (dest steuerfontdir))
  141.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/32") (dest steuerfontdir))
  142.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/33") (dest steuerfontdir))
  143.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/34") (dest steuerfontdir))
  144.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/35") (dest steuerfontdir))
  145.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/36") (dest steuerfontdir))
  146.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/37") (dest steuerfontdir))
  147.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/38") (dest steuerfontdir))
  148.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/39") (dest steuerfontdir))
  149.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/40") (dest steuerfontdir))
  150.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/41") (dest steuerfontdir))
  151.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/42") (dest steuerfontdir))
  152.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/43") (dest steuerfontdir))
  153.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/44") (dest steuerfontdir))
  154.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/45") (dest steuerfontdir))
  155.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/46") (dest steuerfontdir))
  156.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/47") (dest steuerfontdir))
  157.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/48") (dest steuerfontdir))
  158.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/49") (dest steuerfontdir))
  159.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/50") (dest steuerfontdir))
  160.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/51") (dest steuerfontdir))
  161.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/52") (dest steuerfontdir))
  162.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/MITTWOCH/53") (dest steuerfontdir))
  163.  
  164.       (complete 65)
  165.  
  166.       (set steuerfontdir (tackon @default-dest "Samstag"))
  167.         (if
  168.            (= (exists steuerfontdir) 0)
  169.            (makedir steuerfontdir)
  170.         )
  171.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/01") (dest steuerfontdir))
  172.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/02") (dest steuerfontdir))
  173.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/03") (dest steuerfontdir))
  174.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/04") (dest steuerfontdir))
  175.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/05") (dest steuerfontdir))
  176.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/06") (dest steuerfontdir))
  177.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/07") (dest steuerfontdir))
  178.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/08") (dest steuerfontdir))
  179.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/09") (dest steuerfontdir))
  180.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/10") (dest steuerfontdir))
  181.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/11") (dest steuerfontdir))
  182.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/12") (dest steuerfontdir))
  183.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/13") (dest steuerfontdir))
  184.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/14") (dest steuerfontdir))
  185.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/15") (dest steuerfontdir))
  186.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/16") (dest steuerfontdir))
  187.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/17") (dest steuerfontdir))
  188.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/18") (dest steuerfontdir))
  189.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/19") (dest steuerfontdir))
  190.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/20") (dest steuerfontdir))
  191.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/21") (dest steuerfontdir))
  192.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/22") (dest steuerfontdir))
  193.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/23") (dest steuerfontdir))
  194.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/24") (dest steuerfontdir))
  195.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/25") (dest steuerfontdir))
  196.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/26") (dest steuerfontdir))
  197.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/27") (dest steuerfontdir))
  198.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/28") (dest steuerfontdir))
  199.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/29") (dest steuerfontdir))
  200.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/30") (dest steuerfontdir))
  201.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/31") (dest steuerfontdir))
  202.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/32") (dest steuerfontdir))
  203.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/33") (dest steuerfontdir))
  204.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/34") (dest steuerfontdir))
  205.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/35") (dest steuerfontdir))
  206.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/36") (dest steuerfontdir))
  207.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/37") (dest steuerfontdir))
  208.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/38") (dest steuerfontdir))
  209.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/39") (dest steuerfontdir))
  210.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/40") (dest steuerfontdir))
  211.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/41") (dest steuerfontdir))
  212.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/42") (dest steuerfontdir))
  213.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/43") (dest steuerfontdir))
  214.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/44") (dest steuerfontdir))
  215.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/45") (dest steuerfontdir))
  216.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/46") (dest steuerfontdir))
  217.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/47") (dest steuerfontdir))
  218.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/48") (dest steuerfontdir))
  219.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/49") (dest steuerfontdir))
  220.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/50") (dest steuerfontdir))
  221.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/51") (dest steuerfontdir))
  222.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/52") (dest steuerfontdir))
  223.       (copyfiles (prompt "" ) (help "") (source ":Schatztruhe/Lotto/SAMSTAG/53") (dest steuerfontdir))
  224.  
  225.       (complete 90)
  226.   )
  227. )
  228.  
  229.       (if
  230.            (= 0 (exists ":Schatztruhe/Lotto/fonts/Lotto.font"))
  231.                 (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" thisfile))
  232.       )
  233.       (if
  234.            (= 0 (exists ":Schatztruhe/Lotto/fonts/Lotto/7"))
  235.                 (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" thisfile))
  236.       )
  237.  
  238.       (copyfiles
  239.          (prompt "" )
  240.          (help "")
  241.          (source ":Schatztruhe/Lotto/fonts/Lotto.font")
  242.          (dest @default-fontdir)
  243.       )
  244.  
  245.       (set steuerfontdir (tackon @default-fontdir "Lotto"))
  246.         (if
  247.            (= (exists steuerfontdir) 0)
  248.            (makedir steuerfontdir)
  249.         )
  250.       (copyfiles
  251.          (prompt "" )
  252.          (help "")
  253.          (source ":Schatztruhe/Lotto/fonts/Lotto/7")
  254.          (dest steuerfontdir)
  255.       )
  256.  
  257. (complete 100)
  258.